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SEQ 0003! 

72 
73 - PROGRAM ABSTRACT 
74 
75 
76 The KDJ11-B8 is @ PDP-11 CPU that incorporates the J1l chip set as the 
77 heart of the processor. It is a quad height Q22 bus module. The 
78 KDJ11-B has two on-board ROM’s. One of them, the 16-bit addressable 
79 ROM, contains the self-test and the boot codes. The other ROM, the 
80 8-bit addressable one, contains the base area with hardware selection 
61 perameters, optional bootstraps, optional UFD (User Friendly 

4 Diagnostic) system desctiption area, and optional foreign language 

text. 

84 
85 On units to be shipped to non-English speaking countries, a dummy or 
86 "null" lenguage is loaded into the EEPROM. The purpose of this is to 
87 disable English language error messages when the system is first 

88 instelled. If and when the system passes its internal self tests, 
89 the user will be instructed to run a UFD (User Friendly Diagnostics) 
90 package which will be part of a “country kit” for each seperate 
91 language. The UFD package will use the local language for the 

92 perticuler country and, in addition, will load diagnostic and error 
93 messages in the local language into the EEPROM, so each subsequent 
94 power-up or reboot will have diagnostic and error messages in the 

4 user's own language. 

97 The purpose of this program is to load the local language into the 
98 EEPROM. If it detects an error, the program will attempt to restore 
99 the "old" om 7 if any and will print a message informing the 
100 user of that fact. 

101 

102 2. SYSTEM REQUIREMENTS 

103 

104 Hardware Requirements 

105 

106 To run successfully this utility needs: 

107 - 

108 1. KDJ11-B CPU module 

109 2. console terminal 

110 3. at least 28K of memory 

111 

112 

113 3. LOADING AND STARTING PROCEDURES 

114 

115 To start-up this program: 

116 

117 1. Boot XXDP+ 

118 

119 2. Type "R NAME”, where NAME is the nane of the BIN or BIC 

1 file for this program. 

1 

122 The starting address of the program is 1000. 

123 Note: if trying to restart the program in an urbitrary place after 

124 HALT on Break the following registers should be set up: 

125 17777572=0 to disable memmory management 

126 17777520=1000 to clear diagnostic mode (bit 8), but still save 

127 HALT on Break 

128 17777746=400 to flush the cache 


‘ 
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SEQ 0004 


et 4. SPECIAL ENVIRONMENTS 
1353 The program is not APT compatible. 
is 5. PROGRAM OPTIONS 
136 None. 
137 
i39 6. EXECUTION TIMES 
oe The program runs in under 20 seconds. 
a 7. ERROR INFORMATION 
oe 7.1 DEFECTIVE BYTE IN EEPROM 
146 After each write, the Byte which should have been written is 
147 compared to the Byte in the proper location, and if it is not correct, 
pe the following error message is displayed: 
150 EEPROM write error, PCR page n, address mmmmmm. 
iss Date written qqq, dete read rrr. 
153 where n is the EEPROM page selected by the Page Control Register (PCR), 
154 mmnmmm is the physical address of the bad byte in question, qaq is the 
155 byle value that was written out to the address and rrr what wes read 
4 back in after the write. (should be identical to qaq) 
is9 7.2 PROCESSOR NOT KDJ11-8 
160 The program checks the type of CPU it is running on, which must be a 
161 KDJ11-B processor (MFPT returns 5 in r0). If not, the following message 
oe | is printed: 
= Language area not supported by this processor. 
ae 7.3 “OLD” BOOT ROM CODE, LANGUAGE AREA NOT SUPPORTED 
168 The program checks to see if the ROM code version is 7.0 or later. 
169 Earlier versions do not support the language area in the EEPROM 
170 and would print gerbage if one was loaded. The program prints the 
7s following message in that case: 
Bay Current Boot ROM version does not support language area. 
175 In addition, the language bit in the setup area of the EEPROM is 
~ cleared, to prevent "“gerbage” from being printed. 
re 7.4 CHECKSUM ERROR IN SETUP AREA 
180 The checksum in the setup area is checked to see if it contains a valid 
181 checksum. Also, bytes 6 and 103 (addresses 17765022 and 17765314, 
182 respectively) are checked to see if they contain 0 and 252 octal, 
183 respectively. If any of these conditions is not met, the following 
od message is printed: 
| 186 EEPROM checksum error in setup area. 
i 
| 
| 
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No attempt is made to correct a checksum error. 
7.5 DIFFERENCES BETWEEN UFD "QUIET" MODE AND “STANDALONE” MODE 


When this program is run in UFD "Quiet" mode (which will usually be 
the case) none of the error messages will appear. If no error is 
detected, no messages whatsoever are printed. If any error is 
detected, the program will ettempt to restore the UFD and Soong 
ereas to the state they were in when the program was started. I 
the restoration was successful, the following message is printed in 
the user's language: 


Unable to load <language> 

where <language> is the name of the language. If the restoration 
was not successful, or there was no local language, the following 
message is printed. 

Unable to load <language> - reverting to U.S. English 

where yo et is as above. The program then clears the bit 

in the EEPROM setup area selecting a local language which means 
that the ROM English will be used from now on. 

8. EXAMPLES 


After booting XXDP+ and running the program, no message should 
appear, just the XXDP dot prompt ( . ) 


If a problem occurred, one of the messages in section 7 should appear. 


9. PROGRAM DESCRIPTION 


The program consists of ea body of code which loads the language into 
the local language erea of the EEPROM. The routine that performs the 
write first checks the current value of the byte to be written and if 
it is the same, no write is performed. This is done to extend the 
life of the EEPROM. The write routine also checks the value in the 
EEPROM after the write to insure it was written correctly. After a 
succesful run, no message appears, after an unsuccessful attempt to 
write any of the bytes in the EEPROM, one of the message in section 7 
appears. If run under UFD "Quiet" mode, no message is printed if the 
program was successful, otherwise one of the messages in 7.5 appear. 
In both cases, the XXDP prompt appears. 


SEQ o00s_~—! 


| 
! 
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PROGRAM CONSTANTS 


234 

235 000000 

236 

237 

238 

239 177520 
240 177522 
241 177522 
242 165000 
243 165316 
eéa 165006 
245 166000 
246 173002 
247 025370 
248 000140 
249 000040 
250 000002 
251 

252 000004 
253 

254 177524 
255 000015 
256 000012 
257 000200 
258 000100 
259 000011 
260 000010 
261 000040 
262 000033 
263 

264 001617 
265 

266 

277 
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— CONSTANTS 


A 
MOD, CND 
ME 


177520 
177522 
177522 
165000 
E2PROM+316 
E2PROM+6 
E2PROM+1000 
173002 


FLEND- TEXT 





sE2PROM PARITY BYTE 

s;LOCAL LANGUAGE BIT IN E2PROM 
sLAST ADDRESS OF E2PROM-2 

s;WORD TO TEST ROM VERSION NUMBER 


:I1.0. OF A LANGUAGE AREA 

:I.0. OF A UFD BLOCK 

sNUMBER OF ATTEMPTS TO WRITE A 
sBYTE IN E2PROM BEFORE GIVING UP 
s3NO. OF ERRORS ALLOWED IN LOCAL 
sLANGUAGE TEXT BEFORE QUITTING 


s;SIZE IN BYTES OF TEXT TO BE 
s;LOADED INTO EEPROM 


COEEFA EEPROM SPAIN LANG LOR 
CHECK FOR CERTAIN EXCEPTIONS FIRST 


001136 
001142 
001144 


001150 
001154 
001160 
001162 
001164 
001166 


3 


‘ 
a —- -- 


001000 


005037 
013746 
112737 


000007 
020027 
001404 


000001 
000027 
012700 
104003 
000443 


012700 
005001 
012703 
012005 
042705 
060501 
077305 
105701 
001007 
105737 
001004 
123727 
001404 


000001 
000027 
012700 
104003 
000414 
005067 
012737 
023727 
000250 
001405 


000001 
000027 
v12700 
104003 
000167 


012700 
012701 
010005 
005003 
111004 
060403 


177522 
177520 
000067 


000005 


002563 


165000 
000151 
177400 


165022 
165314 


002737 


001304 
000016 
173002 


002644 


000636 


165776 
000005 





-=1000 
START: 


177520 


1$: 


201$: 


000252 
202$: 


300$: 
177522 


99$: 


2s: 


4$: 


H1 
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SEQ 0007 


-SBTTL CHECK FOR CERTAIN EXCEPTIONS FIRST 


aePCR 
@eBCSR , -C SP) 
#67, 30BCSR 


RO, #5 

1$ 

#FMSG2 

NARGS 
NTYPE , #FMSG2 
#FMSG2 ,RO 


3 
99$ 


#E2PROM,RO 
R1 


#105. ,R3 
CRO)+,RS 
#177400,R5 


202$ 
Q#E2PROM+ 22 
202$ 


AVE 2PROM+314, #252 
300$ 


oF MSG4 

NARGS 
NTYPE , #FMSG4 
#FMSG4 ,RO 

3 

99% 

OLOSIZ 
#7*2,90PCR 


QeRMVTST,CPC)+ 


2$ 

oF MSG3 

NARGS 
NTYPE , @FMSG3 
prece.ae 
QUIT1 


sSELECT PAGE O OF EEPROM 
s;SAVE OLD BCSR VALUE 
sWRITE ENABLE THE E2PROM & ENABLE ROM 


;GET PROCESSOR TYPE 
;CHECK TO SEE IF ORION 
sYES - CONTINUE 
sFIELD-SERVICE MESSAGE 


sSTARTING ADDRESS TO CHECKSUM 

sINITIALIZE CHECKSUM 

3NO. OF BYTES TO CKSUM 

;GET A BYTE 

sNO BUS NOISE, THANK YOU. 

sACCUMULATE CHECKSUM 

sCONTINUE TILL DONE 

sIS CKSUM 0? 

NO, ERROR 

sBYTE TO TEST FOR VALID ROM, SHOULD BE O 
ERROR 


;NO, 

;BYTE TO TEST FOR VALID ROM 
;GO TO NEXT CHECK IF OK 
;FIELD SERVICE MESSAGE 


;QUIT 

;SET FLAG THAT ROM EXISTS, CURRENTLY NO LANGUAGE 

;SEL. LAST PAGE OF 2K E2PROM, PGO OF ROM 

;SEE IF ROM VER. 7 OR LATER (CAN SUPPORT LANGUAGE AREA) 


sYES - CONTINUE 


SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 


#ENDE2R-2,RO0 


sLAST ADDRESS (CKSUM) OF E2PROM 
;NO. OF BYTES IN HEADER TO CHECKSUM 
;SAVE ADDRESS 


; 
;GET A BYTE 
sACCUMULATE CHECKSUM 








| I1 


COEEFA EEPROM SPAIN LANG LOR MACRO YOS.02 Saturday 16-Feb-85 13:56 Page 6-1 


411 001416 001404 BEQ 2s ;YES, IT IS VALID, CONTINUE 


SEQ coo8_~—! 

SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 

355 001170 005740 TST -(RO) ;CORRECT ADDRESS 

356 001172 077104 SOB R1,4$ ;LOOP FOR 5 BYTES 

357 001174 105703 TSTB RB ;IF NOT ZERO, NO LANGUAGE LOADED 

358 001176 001131 BNE WRLANG ;NON-EXISTANT OR CORRUPTED LANGUAGE - SKIP 

360 001200 014504 MOV -(R5),R4 ;HIGH BYTE OF BYTE COUNT 

361 001202 014546 MOV -(R5),-(SP) ;LOW BYTE OF BYTE COUNT 

362 001204 110466 000001 MOVB = R4, 1( SP) ;SET UPPER BYTES OF SIZE 

363 001210 042704 177437 BIC 9177437 ,R4 ;EXTRACT ID CODE 

364 001214 012601 MOV (SP)+,Ri ;GET SIZE BACK 

365 001216 042701 160000 BIC #160000,R1 ;R1 NOW CONTAINS SIZE OF BLOCK IN BYTES 

366 001222 062701 000005 ADD #5,R1 ;ADD BYTE COUNT FOR HEADER BLOCK 

367 001226 120427 000040 CMPB  =—«R4.. @UFDHOR ;SEE IF IT IS A UFD BLOCK 

368 001232 001013 BNE LANG ;NO, CHECK FOR A LANGUAGE 

369 001234 010104 MOV R1,R4 ;SAVE SIZE 

370 001236 012702 004721 MOV OBUFF ,R2 ;ADDRESS OF SAVE BUFFER 

371 001242 004767 000666 CALL §_MOVROM ;MOVE UFD AREA TO MEMORY 

372 001246 001105 BNE WRLANG ;BAD CKSUM, QUIT 

373 ;NOTE - R3 CONTAINS CHECKSUM OF BLOCK AND HEADER 

374 ;HOWEVER THE CHECKSUM OF HEADER IS ALREADY KNOWN 

375 ;T0 BE © SO R3 IS A VALID CHECK OF UFD BLOCK 

376 001250 010167 001150 MOV R1,OLDSIZ ;SAVE TOTAL SIZE 

377 001254 010167 001146 MOV R1,UFDSIZ ;SAVE SIZE OF UFD AREA 

378 001260 000500 BR WRLANG 

380 001262 120427 000140 LANG: CMPB  R4,@LNGHOR ;IS THIS A LANGUAGE HEADER? 

381 001266 001075 BNE WRLANG ;NO - QUIT 

382 001270 010167 001130 MOV R1, OLDSIZ ;SAVE SIZE FOR NOW 

383 001274 062701 000005 ADD #5,R1 ;ADD SIZE OF (POSSIBLE) UFD HEADER 

384 001300 004767 001036 CALL §_ROMADR ;SET UP PCR AND RO 

385 001304 005003 CLR R3 ; INITIALIZE CKSUM 

386 001306 004767 001002 CALL § REAROM ;GET A BYTE 

387 001312 004767 000776 CALL § REAROM ;GET A BYTE 

388 001316 004767 000772 CALL § REAROM ;GET A BYTE 

389 001322 010546 MOV R5S,-(SP) ;SAVE LOW BYTE OF SIZE FOR LATER 

390 001324 004767 000764 CALL § REAROM ;GET A BYTE 

391 001330 110566 000001 MOVB RS, 1(SP) ;SAVE HIGH BYTE OF SIZE AND ID 

392 001334 004767 000754 CALL § REAROM ;GET A BYTE 

393 001340 116600 000001 MOVB  1(SP),RO ;GET 1.0. 

394 001344 012601 MOV (SP)+.R1 ;GET SIZE 

395 001346 105703 TSTB RB ;SEE IF VALID CKSUM 

396 001350 001025 BNE 1$ ;NO - WE HAVE LANGUAGE ONLY. 

398 901352 042700 177437 BIC #177437,RO ;GET ID ONLY 

399 001356 120027 000040 CMPB —« RO, #UFDHDR ;IS THIS A UFD BLOCK? 

400 001362 001020 BNE 1$ ;NO, IGNORE IT. 

402 ;WE HAVE BOTH A LANGUAGE AREA AND A UFD BLOCK. SAVE THE UFD BLOCK. 

40 

404 001364 042701 160000 BIC #160000,R1 ;GET RID OF ID 

405 001370 062701 000005 ADD #5,R1 ;SIZE OF HEADER 

406 001374 010104 MOV R1.R4 ;BYTE COUNT TO MOVE 

407 001376 010167 001024 MOV R1,UFDSIZ ;SAVE UFD SIZE 

408 001402 066701 001016 ADD OLOSIZ,R1 ;ADD SIZE OF LANGUAGE AREA 

409 001406 012702 004721 MOV #BUFF ,R2 ;MEMORY ADDRESS TO SAVE TO 

410 001412 004767 000516 CALL § MOVROM ;SAVE UFD AREA 


— | 
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SEQ 0009 
SAVE OLD LANGUAGE/UFD AREA IN CASE IT MUST BE RESTORED 

412 001420 005067 001002 CLR —sUFDSIZ ;NO UFD AREA 
413 001424 012702 004721 1s: MOV —« @BUFF ,R2 ;RESET R2 
414 001430 016701 000770 2$: MOV —«OLDSTZ.R1 ;SIZE OF LANGUAGE AREA 
415 001434 010104 MOV —s- R.1, RA ;BYTES TO MOVE 
416 001436 066767 000764 000760 ADD  UFDSIZ,OLDSIZ ;OLDSIZ IS THE TOTAL SIZE 
417 001444 004767 000464 CALL _MOVROM ;SAVE LANGUAGE AREA 
418 001450 001404 BEQ © WRLANG ;LANGUAGE IS GOOD 
419 001452 005067 000746 CLR —OLDSIZ ;NO LANGUAGE 
420 001456 005067 000744 CLR —«UFDSIZ ;NO UFD AREA 
422 sGENERATE CHECKSUM FOR FOREIGN LANGUAGE TEST FILE & WRITE TO THE MEMORY IMAGE 
424 001462 012700 003102 WRLANG: MOV _—s @TEXT,RO ;ADDRESS OF BEGINNING OF TEXT 
425 001466 005001 CLR RL INIT CHECKSUM 
426 001470 112002 25%:  MOVB (RO)+,R2 ;READ A BYTE 
427 001472 160201 SUB séR2 RL ACCUMULATE CHECKSUM 
428 001474 020027 004713 CMP Ss RO @CKSUM ;FINISHED ALL TEXT ? 
429 001500 001373 BNE —-25$ ;NO- CONTINUE 
430 001502 110110 MOVB —-R1, (RO) ;WRITE THE CHECKSUM 
432 .SBTTL LOAD LOCAL LANGUAGE INTO E2PROM 
434 ;WRITE UFD & LOCAL LANGUAGE BLOCKS 
436 001504 016701 000716 MOV —sCUFDSIZ,R1 ;GET THE LENGTH OF THE UFD 
437 001510 062701 001617 ADD #ROMSZ,R1 3... & THE TEXT AREA 
438 001514 004767 000622 JSR _— PC, ROMADR ;COMPUTE E2PROM PAGE AND ADDR 
439 001520 016701 000702 MOV -—sCUFSIZ.R1 ;SIZE OF UFD AREA TO SAVE 
440 001524 001406 BEQ 40$ ;NO UFD AREA - SKIP 
441 001526 012702 004721 MOV —s@BUFF,R2 ADDRESS OF BEGINNING OF UFD AREA 
442 001532 112205 35$: MOVB (R2)+_RS GET SOME DATA 
443 001534 004767 000126 CALL  EQWRIT ;GO WRITE IT 
444 001540 077104 SOB. Ss«éR1, 35$ ;FINISHED UFD? 
445 ;YES-DO LANGUAGE 
446 001542 012702 003102 40$: MOV ®TEXT.R2 ADDRESS OF EEPROM LANGUAGE TEXT 
447 001546 012701 001617 MOV -—Ss« @ROMSZ..R2 BYTES TO MOVE 
448 001552 112205 S0$: MOVB (R2)+.RS ;GET SOME DATA 
449 001554 004767 000106 CALL  E2WRIT ;WRITE A BYTE 
450 001560 077104 SOB. —SsaR1,50$ ;ARE WE DONE? 
451 ;YES - EXIT 
452 001562 112705 000200 MOVB —« @BIT7. RS ;TURN ON LOCAL LANGUAGE BIT IN 
453 ;SETUP AREA, THEN EXIT 
454 
455 01566 105037 177522 EXIT: CLRB  aePCRLB ;SELECT PAGE 0 
456 001572 012700 165006 MOV  #E2LLB. RO ;E2PROM WORD CONTAINING LOCAL LANG. BIT 
457 001576 111001 MOVB - (RO).Ri 
458 001600 142701 177577 BICB  #tCBIT7.R1 ;GET CURRENT LOCAL LANGUAGE BIT 
459 001604 120501 CMPBséRSR1 ;SEE IF BIT ALREADY CORRECT 
460 001806 001415 BEQ —sEXIT1 YES, JUST RETURN 
461 001610 112701 000200 MOVB  #B1T7,R1 ;LOCAL LANGUAGE BIT 
462 001614 111005 MOVB (RO). RS ;GET OLD WORD AGAIN 
463 001616 074105 KOR —s-RIRS iFLIP THE BIT 
464 001620 004767 000336 CALL - WRBYTE ;CHANGE LOCAL LANGUAGE BIT IN E2PROM 
465 001624 001006 BNE -—-EXIT1 ;WOULD NOT WRITE, JUST GIVE UP 
466 001626 012700 165316 MOV —« @E2PAR, RO ADDRESS OF CKSUM BYTE 
467 001632 111005 MOVB (RO). RS ;GET OLD CKSUM BYTE 


468 001634 074105 XOR R1,R5 sCORRECT THE CKSUM 
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SEQ 0010 
LOAD LOCAL LANGUAGE INTO E2PROM 
ace 001636 004767 000320 CALL WRBYTE ;UPDATE E2ROM 
471 001642 EXIT1: .FRCTYP #CRLF ;COMPLETE LINE 
000001 .NARG NARGS 
000027 NTYPE NTYPE, #CRLF 
001642 012700 002560 MOV #@CRLF,RO 
001646 104044 EMT 44 
472 001650 142716 000060 BICB #60, (SP) ;BE SURE ROM IS DISABLED 
473 001654 012637 177520 MOV (SP)+,a@BCSR ;RESTORE BCSR 
474 001660 005037 177522 CLR aePCR ; 
475 001664 000207 RTS PC 
477 001666 004767 000270 E2QWRIT: CALL WRBYTE ;WRITE THE BYTE TO E2PROM 
478 001672 001431 BEQ 3$ ;0K THIS TIME 
a7 001674 005267 000522 INC WERR ;FLAG BAD BYTE 
481 001700 026727 000516 000004 CMP WERR , @MAXERR ;CHECK TO SEE IF PAST THE MAXIMUM ERROR 
482 001706 003036 BGT QUIT ;LIMIT OF BAD BYTES ALLOWED 
484 001710 020227 003177 CMP R2,@MO001 ;CHECK TO SEE IF ERROR IS IN MESSAGE 
aes 001714 101433 BLOS QUIT ;BYTE COUNT (MUST BE CORRECT) 
487 001716 020227 004712 CMP R2,#MEND1 ;CHECK TO BE SURE DICTIONARY AND UFD 
ace 001722 101030 BHI QUIT ;BLOCKS ARE NOT CORRUPTED 
490 001724 132705 000140 BITB #140,R5 ;CHECK TO SEE IF IT SHOULD BE A CONTROL 
r+ 001730 001425 BEQ QUIT ;CODE (POSSIBLY DICTIONARY ENTRY) 
493 001732 132710 000140 BITB #140,(RO) ;IF CONTROL CODE (DICTIONARY REFERENCE 
ave 001736 001422 BEQ QUIT ;PERHAPS) CALL IT QUITS 
4 
496 001740 111004 MOVB (RO),R4 ;WE WILL LIVE WITH THIS ERROR, CORRECT 
497 001742 116703 002745 MOVB CKSUM,R3 ;THE CHECKSUM TO ACCOUNT FOR NEW VALUE 
498 001746 060503 ADD R5,R3 ;CANCEL OUT WHAT WAS SUPPOSED TO BE 
499 001750 160403 SUB R4,R3 ;CORRECT FOR ERRONEOUS VALUE 
500 001752 110367 002735 MOVB R3,CKSUM ;PUT BACK CORRECTED VALUE 
501 
502 001756 062700 000002 3$: ADD #2,RO ; INCREMENT LOCATION 
503 001762 020027 166000 CMP RO, @ENDEQR ;FINISHED THIS PAGE ? 
504 001766 001005 BNE 10$ ;NO-RETURN 
505 001770 012700 165000 MOV #E2PROM,RO ;YES-RESET ADDRESS 
506 001774 062737 000002 177522 ADD #2,a0PCR ;INCREMENT PCR TO NEXT PAGE 
307 002002 000207 10$: RETURN 
509 002004 005726 QUIT: TST (SP)+ ;CORRECT STACK 
510 002006 032737 000100 000052 QUIT1: BIT oBIT6,aeS2 ;SEE IF UFD QUIET 
511 002014 001403 BEQ S$ ;NO 
512 002016 .FRCTYP #MSGO0O ;MESSAGE FOR USER IN HIS OWN LANGUAGE 
000001 NARG  NARGS 
000027 NTYPE NTYPE, #MSGO0O 
002016 012700 003006 MOV #MSGO00,RO 
002022 104044 EMT 44 | 
513 002024 016701 000374 S$: MOV OLOSIZ,R1 
514 002030 100704 BMI EXIT1 ;ERROR WAS NOT ORION OR CKSUM ERROR, DO NOT 
515 ;TRY TO CLEAR LANGUAGE BIT 
516 002032 001427 BEQ 40$ ;IF NO OLD LANGUAGE TO RESTORE 
517 002034 004767 000302 JSR PC,ROMADR ;COMPUTE STARTING ADDRESS OF OLD LANG IN E2PROM 
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| 
| 
518 002040 012702 004721 MOV OBUFF ,R2 sSTARTING ADDRESS OF OLD LANGUAGE TEXT 
519 002044 112205 10$: MOVB CR2)+,RS ;GET A BYTE 
520 002046 004767 000110 CALL WRBYTE sWRITE IT OUT 
$21 002052 001017 BNE 40$ ;IF ERROR, GIVE UP 
S22 002054 062700 000002 ADD #2 ,RO s INCREMENT LOCATION 
523 002060 020027 166000 CMP RO, #ENDE2R sFINISHED THIS PAGE ? 
524 002064 001005 BNE 20% ;NO-CONTINUE 
S25 002066 012700 165000 MOV #E2PROM,RO ;YES-RESET ADDRESS 
526 002072 062737 000002 177522 ADD oo s INCREMENT PCR TO NEXT PAGE 
527 002100 077117 20%: SOB Ri,i sLOOP UNTIL DONE 
528 002102 026767 000320 000314 CMP UFbstz, OLOSIZ ;IF THE SAME THEN NO LANGUAGE 
529 002110 001254 BNE EXxI ;IF LANGUAGE, LEAVE E2PROM LANG. BIT AS IT WAS 
530 002112 005005 40$: CLR RS ;TURN OFF LOCAL LANGUAGE BIT IN E2PROM 
531 002114 036737 175760 000052 BIT BIT6,aeS2 ;SEE IF UFD QUIET 
S32 002122 001621 BEQ EXIT 3NO 
533 002124 -FRCTYP #MSGOO1 
000001 NARG NARGS 
000027 NTYPE NTYPE,#MSGOO1 

002124 012700 003040 MOV #MSGO01,RO0 

002130 104044 EMT 44 
ans 002132 000615 BR EXIT sAND CALL IT A DAY 
te -SBTTL PROGRAM SUBROUTINES 
538 sMOVROM - MOVE BYTES FROM EEPROM TO MEMORY 
539 sENTRY- R1 = STARTING ADDRESS IN EEPROM (# OF BYTES FROM END) 
540 ; R2 = ADDRESS OF MEMORY BUFFER 
541 ; R4 = @ OF BYTES TO MOVE 
542 sEXIT R1 - UNCHANGED 
543 ; R2 - UPDATED MEMORY ADDRESS 
544 ; R3 = (BYTE) O IF VALID CKSUM 
545 ; "Z" FLAG SET IF CKSUM VALID 
546 
547 002134 010403 MOVROM: MOV R4,R3 sSAVE R4 
548 002136 004767 000200 CALL ROMADR sLOAD PCR AND RO WITH LANGUAGE START AREA 
549 002142 010304 MOV R3,R4 sRESTORE BYTE COUNT 
550 002144 005003 CLR R3 sINIT CHECKSUM 
551 002146 004767 000142 S$: CALL REAROM GET A BYTE 
552 002152 110522 MOVB RS,(CR2)+ s;SAVE IT 
553 002154 077404 SOB R4,5$ ;LOOP TILL DONE 
554 002156 105703 TSTB R3 31S CHECKSUM GOOD? 
ay 002160 000207 RETURN 
557 002162 120510 WRBYTE: CMPB RS, CRO) :IS THE NEW DATA DIFFERENT ? 
a4 002164 001452 BEQ 10$ sNO-DO NOT WRITE OVER 
560 002166 012703 000002 MOV #RETRY ,R3 
561 002172 010510 1$: MOV RS, CRO) sWRITE A LOCATION 
S62 002174 012704 025370 MOV @DELAY ,R4 311 MS WAIT 
563 002200 077401 S08 R4, sWASTE TIME 

002202 120510 CMPB RS, CRO) ;SEE IF IT TOOK 
56S 002204 001442 BEQ 10$ sYES, ALL OKAY 
S66 002206 077307 S08 R3,1$ sIF AT FIRST YOU DON'T SUCCEED... 
567 002210 113704 177522 MOVB aePCRLB, R4 sPCR PAGE OF BAD BYTE 
568 002214 106204 ASRB R4 sCONVERT TO PAGE @ 
569 002216 062704 000060 ADD #'O,R4 sCONVERT TO OCTAL 
S70 002222 110467 000237 MOVB R4,FMSG1A ;STORE IT FOR PRINTING 
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PROGRAM SUBROUTINES 


571 
$72 


573 


574 
575 


576 


577 
578 
579 


580 


002226 
002230 


002230 
002234 
002236 


002236 
002242 
002244 
002250 


002250 


002314 
002316 
002320 
002324 
002326 
002332 
002340 


010046 


002500 


002430 
177400 


002526 


002531 


177400 


002551 


002554 


166000 


165000 
000002 
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SEQ 0012s! 
MOV RO, -( SP) ;SAVE ROM ADDRESS 
.ITOA , OFMSG1B sCONVERT ROM ADDRESS TO OCTAL 
NARG NARG 
-NTYPE NTYPE , #FMSG1B 
MOV #FMSG1B,R1 
EMT 30 
-TYPMSG @FMSG1 sPRINT OUT FIRST PART OF MESSAGE 
 NARG NARGS 
-NTYPE NTYPE,@FMSG1 
MOV #FMSG1,RO0 
EMT 3 
BIC #177400,R5 ;MAKE SURE RS IS POSITIVE AND A BYTE 
-ITOA RS, @DUMMY1 ;CONVERT TO OCTAL 
NARG NARGS 
-NTYPE NTYPE ,RS 
MOV RS, 
-NTYPE NTYPE , @DUMMY 1 
MOV #@DUMMY1,R1 
EMT 30 
TYPMSG #FMSG1C sPRINT OUT LAST 3 DIGITS OF NUMBER & MESSAGE 
NARG NARGS 
NTYPE NTYPE,#FMSGiIC 
MOV #FMSGIC,RO 
ew $ 
MOV @(SP)+,RO ;GET BYTE AT ROM ADDRESS 
BIC #177400,RO ;GET RID OF BUS NOISE 
.ITOA » @DUMMY2 sCONVERT TO OCTAL 
. NARG NARGS 
.NTYPE NTYPE , @DUMMY2 
MOV #DUMMY2,R1 
EMT 30 
.TYPMSG #FMSG1D ;PRINT LOWER 3 BYTES & REST OF MESSAGE 
. NARG NARGS 
-NTYPE NTYPE,#FMSG1D 
MOV #FMSG1D,RO 
EMT 3 
CLZ sCOULON’'T DO IT, SET ERROR FLAG 
10$: RETURN 
;REAROM - READS A BYTE FROM E2PROM ADDRESS (RO)+ INTO RS. AUTOMATICLY ADJUSTS 
;PCRLB. UPDATES CKSUM IN R3 
3 ENTRY - RO ADDRESS IN ROM TO READ FROM 
; R3 PARTIAL CKSUM 
; PCRLB CORRECT VALUE FOR BYTE TO READ 
; EXIT RO ADDRESS OF NEXT BYTE 
; R3 UPDATED CKSUM 
" RS BYTE READ 
: PCRLB CORRECT VALUE FOR NEXT BYTE 
REAROM: MOV CRO)+,RS ;GET A BYTE & UPDATE ADDR. BY 2 
ADD RS,R3 sUPDATE CKSUM 
CMP RO, @ENDE2R ;SEE IF WE SHOULD SWITCH PAGES 
BNE 10$ ;NO 
MOV #E2PROM,RO ;YES - GO TO START OF PAGE 
177522 ADD #2,20PCR sADVANCE A PAGE 
10$: RETURN 
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SEQ 0013 

PROGRAM SUBROUTINES 

602 

603 sROMADR - CALCULATE PAGE OFFSET FROM END OF ROM GIVEN SIZE IN BYTES 

604 ; ENTRY - R1 SIZE IN BYTES 

605 ; EXIT - RO INITIAL ADDRESS FOR FIRST BYTE IN ROM 

606 ; Ri SIZE IN BYTES 

ose i: PCRLB CORRECT VALUE FOR FIRST BYTE IN ROM 

609 002342 010100 ROMADR: MOV R1,RO sCOPY BYTE COUNT 

610 002344 010105 MOV R1,RS sSECOND COPY 

611 002346 072527 177770 ASH 0-8. ,RS sDIVIDE BYTE COUNT BY 256. BYTE PAGES 

612 002352 012704 000010 MOV 07+1,R4 sLAST PAGE IN 2 K PART + 1 

ont 0023556 160504 SUB RS,R4 sSTARTING PAGE NUMBER 

615 002360 042700 177400 BIC #177400,RO0 sLEAVE ONLY BITS 7:0 

616 002364 006300 ASL RO sDOUBLE VALUE 

617 002366 001003 BNE 20% 

618 002370 012700 165000 MOV #E2PROM,rO ; 

4 002374 000406 BR 30% :IF 0 

621 002376 005400 20%: NEG RO sMAKE STARTING ADDRESS BITS 8:0 

622 002400 042700 177000 BIC #177000, RO ; 

623 002404 052700 165000 BIS @E2PROM,RO sMAKE A E2PROM ADDRESS 

aos 002410 005304 DEC R4 sDECREMENT PAGE NUMBER BY 1 

626 002412 006304 30$: ASL R4 sMAKE PAGE NUMBER CORRECT FOR PCR 

627 002414 110437 177522 MOVB R4,30PCRLB sCORRECT PAGE IN PCRLB 

4 002420 000207 RTS PC sRETURN 

630 002422 000000 WERR: 0 sFLAG FOR BAD BYTE 

631 002424 177777 OLOSIZ: -1 320 - SIZE IN BYTES OF OLD LANGUAGE, O IF NO 

632 sLANGUAGE, -1 IF E2PROM MAY BE BAD/NONEXISTANT 

44 002426 000000 UFDSIZ: 0 sSIZE IN BYTES OF OLD UFD AREA 

6 

44 -SBTTL “FIELD SERVICE MODE” ERROR MESSAGES 

6 


-ENABL LC 
638 002430 105 105 120 FMSG1: .ASCII /EEPROM write error, PCR page / 


639 002465 130 054 040 FMSGIA: .ASCII /X, address / 


640 002500 FMSG1B: .BLKB sFOR ADORESS 
641 002506 01s 012 104 -ASCIZ <CR><LF >/Pete ur itten / 





COEEFA EEPROM SPAIN LANG LOR 
"FIELD SERVICE MODE” ERROR MESSAGES 


642 
643 
644 


647 
649 


650 


651 





MACRO YOS.02 Seturdey 


OUMMY1: 
FMSGIC: . 


DUMMY 2: 
FMSG1D: 


000 CRLF: 
156 FMSG2: 


162 FMSG3: 


145 FMSG4: 


“ASCIZ 


-ASCIZ 


-ASCIZ 





Be 
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SEQ 0014 
: 33 UPPER BYTES NOT TO BE PRINTED 
/, Dete read / 
: ;3 UPPER BYTES NOT TO BE PRINTED 
a i 
<CR><LF> 


/Language Area not supported on this processor ./<CR><LF> 


/Current boot ROM version does not support language area. /<CR><LF> 


/Checksum error in EEPROM setup erea./<CR><LF> 








Ce | 
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SEQ 0015 
“FIELD SERVICE MODE” ERROR MESSAGES soins 


002772 164 165 160 
002775 040 141 162 


-BYTE MO31-M030 
-BYTE MO32-M031 
-BYTE MO33-MO032 


652 -SBTTL TRANSLATED LOADER ERROR MESSAGES 
653 003006 015 111 155 MSGOOO: .ASCIZ <CR>!Imposible cargar espanol! 
003011 160 157 163 
003014 151 142 154 
003017 145 040 143 
003022 141 162 147 
003025 141 162 040 
003030 145 163 160 
003033 141 156 AS? 
003036 154 000 
654 003040 040 055 040 MSGOO1: .ASCIZ ! - traducido a Ingles Americano. !<CR> 
003043 164 162 141 
003046 144 165 143 
003051 151 144 157 
003054 040 141 040 
003057 111 156 147 
003062 154 145 163 
003065 040 101 155 
003070 145 162 151 
003073 143 141 156 
003076 157 056 015 
003101 000 
— .SBTTL START OF AREA TO BE LOADED INTO E2PROM 
6 
657 -SBTTL espanol LANGUAGE TEXT 
658 
659 003102 075 TEXT: -BYTE MOO1-TEXT 
660 003103 010 -BYTE MO02-M001 
661 003104 002 -BYTE MO003-M002 
662 003105 006 .BYTE M004-M003 
663 003106 007 -BYTE MOOS-MO004 
664 003107 007 -BYTE MO06-MOOS 
665 003110 002 -BYTE MOO7-M006 
666 003111 002 -BYTE M010-M007 
667 003112 002 -BYTE M0O11-M010 
668 003113 000 -BYTE MO12-M011 
669 003114 000 -BYTE  M013-M012 
670 003115 000 -BYTE M014-M013 
671 003116 000 -BYTE M0O15-M014 
672 003117 000 .BYTE M™016-M015 
673 003120 000 -BYTE  M0O17-M016 
674 003121 000 -BYTE MO20-M017 
675 003122 041 -BYTE MO21-M020 
676 003123 031 -BYTE  MO22-M021 
677 003124 034 -BYTE MO23-M022 
678 003125 134 -BYTE  MO024-M023 
679 003126 014 -BYTE  MO25-M024 
680 003127 001 “BYTE M026-M025 
681 003130 030 -BYTE  MO027-M026 
682 003131 006 -BYTE MO30-M027 
013 
013 
| 002 
' 





ee 
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SEQ 0016 
Espenol LANGUAGE TEXT 

686 003135 051 .BYTE M034-M033 
687 003136 000 -BYTE  MO35-M034 
688 003137 001 -BYTE  M036-M035 
689 003140 000 -BYTE MO37-M036 
690 003141 002 -BYTE MO40-M037 
691 003142 022 -BYTE MO041-M040 
692 003143 000 -BYTE  M042-M041 
693 003144 014 -BYTE  M043-M042 
694 003145 023 -BYTE  M044-M043 
695 003146 023 -BYTE  MO45-M044 
696 003147 014 -BYTE  MO46-M045 
697 003150 014 .BYTE  M047-M046 
698 003151 023 -BYTE MOSO-M047 
699 003152 023 .BYTE  ™051-M050 
700 003153 034 -BYTE  MOS2-M051 
701 003154 026 .BYTE MO053-M0S2 
702 003155 027 -BYTE MOS4-M053 
703 003156 022 -BYTE MOSS-MOS4 
704 003157 013 -BYTE  MOS6-MOS5S 
705 003160 075 -BYTE MOS7-M056 
706 003161 012 -BYTE MO60-M057 
707 003162 000 .BYTE M061-M060 
708 003163 010 -BYTE  MO62-M061 
709 003164 002 -BYTE M063-M062 
710 003165 013 .BYTE M064 -M063 
711 003166 035 .BYTE M065 -M064 
712 003167 003 -BYTE  MO66-MO065 
713 003170 024 -BYTE  MO067-M066 
714 003171 952 .BYTE MO70-M067 
715 003172 012 .BYTE MO71-M070 
716 003173 003 -BYTE  MO72-M071 
717 003174 070 .BYTE MO73-M072 
718 003175 003 .BYTE  MO74-M073 
719 003176 034 -BYTE MEND1-MO74 
720 003177 145 163 160 MOO]: -ASCIZ ‘espanol! 

003202 141 156 157 

003205 154 000 
721 003207 077 000 MOO2: -ASCIZ !?! 
722 003211 101 131 125 M003: -ASCIZ !AYUDA! 

003214 104 101 000 
723 003217 103 101 i22 M004: -ASCIZ !CARGAR! 

003222 107 101 122 

003225 000 
724 003226 114 111 123 Moos: -ASCIZ !LISTAR! 

003231 124 101 122 

003234 000 
725 003235 177 000 MOO6: -ASCIZ <177> ;Setup command 
726 003237 177 000 MOO7: -ASCIZ <177> ;Map command 
727 003241 177 000 MO10: -ASCIZ <177> ;Test command 
728 003243 MO11 
729 003243 M012 
730 003243 M013 
731 003243 M014 
732 003243 M015 
733 003243 M016 
734 003243 M017 


i 735 003243 104 151 163 M020: ASCII !Dispositivo Unidades Descripcion!<CR> 








> ES 


| Los F2 
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SEQ 0017 
Espenol LANGUAGE TEXT 

003246 160 157 163 
003251 151 164 151 
003254 166 157 040 
003257 125 156 151 
003262 144 141 144 
003265 145 163 040 
003270 104 145 163 
003273 143 162 151 
003276 160 143 151 
003301 157 156 015 

736 003304 114 151 163 M021: -ASCII !Liste programas de carga!<CR> 
003307 164 141 040 
003312 160 162 157 
003315 147 162 141 
003320 155 141 163 
003323 040 144 145 
003326 040 143 141 
003331 162 147 141 
003334 015 

737 003335 101 162 162 M022: -ASCII !Arrancando el sistema desde ! 
003340 141 156 143 
003343 141 156 144 
003346 157 040 145 
003351 154 040 163 
003354 151 163 164 
003357 145 155 141 
003362 040 144 145 
003365 163 144 145 
003370 940 

738 003371 015 103 157 M023: -ASCII <CR>!Comando ODescripcion!<CR><CR>!Cargar Carge y errancea! 
003374 155 141 156 
003377 144 157 040 
003402 040 040 104 
003405 145 163 143 
003410 162 151 160 
003413 143 151 157 
003416 156 015 015 
003421 103 141 162 
003424 147 141 162 
003427 040 040 040 
003432 040 103 141 
003435 162 147 141 
003440 040 171 040 
003443 141 162 162 
003446 141 156 143 
003451 141 

739 003452 040 145 154 -ASCII ! el sistema desde un dispositivo!<CR>!Listar H 
003455 040 163 151 
003460 163 164 145 
003463 155 141 040 
003466 144 145 163 
003471 144 145 040 
003477 144 151 163 
003502 160 157 163 
003505 151 164 151 


003474 165 156 040 


a 
ee Se ry 
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Baia. FO | 
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SEQ 0018 
Espenol LANGUAGE TEXT 
003513 114 151 163 
003516 164 141 162 


003521 040 040 040 


740 003525 015 111 156 M024: -ASCII <CR>!Intentando ! 
003530 164 145 156 
003533 164 141 156 
003536 144 157 040 
742 003542 120 165 154 M026: -ASCII !Pulse le tecla RETORNO: ! 
003545 163 145 040 
003550 154 141 040 
003553 164 145 143 
003556 154 141 040 
003561 122 105 124 
003564 117 122 116 
003567 417 072 040 
743 003572 105 162 162 M027: -ASCII !€rror ! 
003575 157 162 040 
744 003600 040 144 151 M030: -ASCII ! direccion ! 
003603 162 145 143 
003606 143 151 157 
003611 156 040 
745 003613 103 157 155 MOo31: -ASCII !Comprobando! 
003616 160 162 157 
003621 142 141 156 
003624 144 157 
746 003626 060 055 MO32: -ASCII /0-/ 
747 003630 915 124 145 M033: -ASCII <CR>!Teclee un comando, luego pulse RETORNO: 
003633 143 154 145 
003636 145 040 165 
003641 156 040 143 
003644 157 155 141 
003647 156 144 157 


003663 165 154 163 
003666 145 040 122 
003671 105 124 117 
003674 122 116 117 
003677 072 040 
748 003701 M034: 
749 003701 011 MO3S: -BYTE TAB 
750 003702 MO36: 
751 003702 015 040 M037: -BYTE CR,SPACE 
752 003704 103 141 162 M040: -ASCII !Cargando desde ROM! 
003707 147 141 156 
003712 144 157 040 
003715 144 145 163 
003720 144 145 040 
003723 122 117 115 
753 003726 M041: 
754 003726 015 115 145 M042: -ASCII <CR>!Mensaje 06!<CR> 
003731 156 163 141 
003734 152 145 040 


741 003541 057 mMO2S: -ASCII ‘/' 
' 


SS 





a_ —-- 


24 


| 
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Espenol LANGUAGE TEXT 
755 003742 125 156 


756 003765 123 157 
003770 157 162 
003773 145 040 
003776 157 040 
004001 141 162 
004004 141 142 

004007 145 
757 004010 116 157 
004021 163 143 
758 004024 116 157 
004027 150 141 
004032 040 143 
004035 156 164 
759 004040 116 157 
004043 150 141 
004046 040 143 
004051 156 164 
004054 157 154 
004057 144 157 
004062 054 
760 004063 114 141 
004066 165 156 
004071 144 141 
004074 040 156 
004077 040 145 
004102 151 163 
004105 145 
761 004106 116 165 
004111 145 162 
004114 040 144 
004117 040 165 
004122 151 144 
004125 144 040 
004130 156 143 
004133 162 162 
004136 143 164 
004141 040 
762 004142 104 151 
004145 160 157 
004150 151 164 
004153 166 157 
004156 151 156 
004161 157 162 
004164 145 143 
004167 157 
763 004170 105 162 
004173 157 162 
| 
| 
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151 M043: 


160 M044: 


040 M047: 


040 MOSO: 


155 M051: 


163 MOS2: 


162 M053: 


ES 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


Ge 
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!Unidad no preparada! 


'Soporte no cargable! 


'No hay disco! 
'No hay cinta! 


!'No hay controlador, ! 


'La unidad no existe! 


!Numero de unidad incorrecto ! 


!Dispositivo incorrecto! 


‘Error en el controlador! 


SEQ 0019 





He 
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Espenol LANGUAGE TEXT 


004204 143 157 156 
004207 164 162 157 
004212 154 141 144 
004215 157 162 
764 004217 105 162 162 MOS4: -ASCII 


004230 154 141 040 
004233 165 156 151 
004236 144 141 144 
765 004241 015 015 103 MOSS: -ASCII 
004244 141 162 147 
004247 141 156 144 


766 004254 015 126 145 MOS6: -ASCII 


004257 141 040 042 
004262 154 157 143 
004265 141 154 151 
004270 172 141 143 
004273 151 157 156 
004276 040 144 145 
004301 040 141 166 
004304 145 162 151 
004307 141 163 042 


004337 160 151 145 
004342 164 141 162 
767 004345 151 157 015 - ASCII 


768 004351 033 133 062 M057: - ASCII 


769 004355 033 133 065 - ASCII 
004360 073 060 110 

770 004363 MO60: 

771 004363 115 145 156 M061: - ASCII 
004366 163 141 152 
004371 145 040 

772 004373 015 015 M062: -BYTE 

773 004375 015 015 113 M063: - ASCII 
004400 104 112 061 


774 004410 015 105 162 M064: -ASCII 


004413 162 157 162 
004416 040 144 145 
004421 040 143 141i 
004424 162 147 141 
004427 040 144 145 
004432 163 144 145 
004435 040 105 105 





-_—-- 


SEQ 0020 


‘Error en le unidad! 


<CR><CR>!Cargando ! 


<CR>!Vee “localizacion de averias” en el Manuel del Propietar! 


tio!<CR><CR> 

<ESC>/(2U/ ;Erase screen 

<ESC>/(5;0H/ ;Set cursor to line 5 and col 1 
!Mensaje ! 


CR,CR 
<CR><CR>/KDJ11-B >/ 


<CR>!Error de cerga desde EEPROM!<CR> 


- eee 


COEEFA EEPROM SPAIN LANG LOR 
Espenol LANGUAGE TEXT 


775 
776 


777 


778 


779 
780 


781 
782 
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SEQ 0021 ~‘*'! 


010 MO6S: .BYTE BACKSP,SPACE,BACKSP 
157 M066: -ASCII <CR>!Comando incorrecto!<CR> 


162 M070: -ASCII !Direccion ! 


040 MO71: -ASCII / = / 
143 M072: -ASCII !Teclee el dispositivo y la unidad, luego pulse RETORNO: 


040 M073: -ASCII <TAB>! ! 


164 
114 M067: -ASCII <CR><CR>!Los comandos son Ayuda, Cargear y Listar.! 
' 
143 M074: -ASCII <CR>!Activando carge automaticea!<CR> 


COEEFA EEPROM SPAIN LANG LOR 


Espenol 


LANGUAGE TEXT 
004706 151 
004711 015 
004712 
004712 
004712 001 
004713 
004713 
004713 000 
004714 
904714 
004714 
000002 
000000 
000212 
000143 
004714 002 
004715 000 
004716 212 
004717 143 
004720 021 
004721 
004721 
001000 


143 
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141 
MEND1: 





‘ai o> 


Je 





SEQ 0022 


-SBTTL NULL DICTIONARY BLOCK, CHECKSUM AND LANGUAGE HEADER 


wb: 
ENGWRO: .BYTE 
ENDBLK : 


WEND : 
CKSUM: .byte 


ENOBLK - ENGWRD | 


t¢) ;checksum 


sEND OF NULL TEXT 


sFOREIGN LANGUAGE HEADER 


MEND: 

ME: 

WE: 

Bi = 

B2 s 

B3 = 

B4 = 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

FLEND: 

BUFF ; 
.END 


WE -WBE377 sDICTIONARY BYTE COUNT 7:0 

WE -WBE17400/256. sDICTIONARY BYTE COUNT 10:8 
MEND -text&377 sTEXT BYTE COUNT 7:0 

MEND - text€017400/256.!140 TEXT BYTE COUNT 12:8 & ID=911 
B1 

B2 

83 

B4 

- <B1+B2+B3+B4>6377 ;THIS BYTE IS HEADER CHECKSUM 


; TEMPORARY SAVE AREA FOR OLD AREA 
START 


ee 
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Symbol teble 


BACKSP= 000010 
BCSR = 177520 


BOR * 177524 
BIT6 = 000100 
BIT7 = 000200 
BUFF 004721 
61 = 000002 
B2 * 000000 
83 * 000212 
B4 = 000143 
CKSUM 004713 
R * 000015 


000000 
Errors detected: 


FLEND 004721 M010 003241 
FMSG1 002430 MO11 003243 
FMSG1A 002465 M012 003243 
FMSG1B 002500 M013 003243 
FMSGiC 002531 M014 003243 
FMSG1D 002554 Mois 003243 
FMSG2 002563 M016 003243 
FMSG3 002644 M017 003243 
FMSG4 002737 M020 003243 
LANG 001262 M021 003304 
LF = 900012 M022 003335 
LNGHOR= 000140 M023 003371 
MAXERR= 000004 M024 003525 
ME 004714 mMo25 003541 
MEND 004714 M026 003542 
MEND1 004712 M027 003572 
MOVROM 002134 M030 003600 
MSGOO0O 003006 MO31 003613 
MSGOO1 003040 MO32 003626 
MOO1 003177 M033 003630 
mMo02 003207 M034 003701 
mMoc3 003211 MO35 003701 
M004 003217 M036 003702 
MOOS 003226 M037 003702 
M006 003235 M040 003704 
M007 003237 M041 003726 


000 = CRW, 1, GBL ,, ABS, OVR) 
7 (RW,I,LCL,REL,CON) 


*e¢ Assembler statistics 


Work file reads: 


te) 


Work file writes: 0 


Size of work file: 
Size of core pool: 
Operating system: 


8553 Words ( 34 Pages) 
19402 Words ( 74 Pages) 
RSX-11M/PLUS (Under VAX/VMS) 


Elepsed time: 00:00:25.24 
OEEFAO.8IC, COEEFAO/CR/-SP=COEEF AO 


MACRO YOS.02 Seturdaey 16-Feb-85 13:56 Page 6-16 


003726 


ee 


SEQ 0023 


WERR 002422 
WRBYTE 002162 
WRLANG 001462 


ee et 


COEEF AO CREATED BY MACRO ON 16-FEB-85 AT 13:56 PAGE 1 

SYMBOL CROSS REFERENCE CREF v02 

SYMBOL VALUE REFERENCES 

BACKSP = 000010 5-260 6-775 6-775 

BCSR * 177520 5-239 6-315 *6-316 *6-473 

BOR * 177524 05-254 

BIT6 * 000100 5-258 6-510 6-531 

BIT7 * 000200 5-257 6-452 6-458 6-461 

BUFF 004721 6-370 6-409 6-413 6-441 

61 * 000002 6-802 6-807 6-811 

B2 ° 06 -803 6-808 6-811 

683 * 000212 06 - 804 6-809 6-811 

64 * 000143 06-805 6-810 6-811 

CKSUM 004713 6-428 6-497 *6-500 06-792 

= 000015 5-255 6-641 6-648 6-649 

6-736 6-738 6-738 6-738 
6-754 6-765 6-765 6-766 
6-773 6-774 6-774 6-776 

CRLF 002560 6-471 6-471 04-648 

DELAY = 025370 05-247 6-562 

DUMMY 1 002526 6-575 6-575 06-642 

DUMMY2 002551 6-579 6-579 06-645 

ENOBLK 004713 6-786 06-787 

ENDE2R = 166000 05-245 6-349 6-503 6-523 

ENGWRD 004712 06-786 6-786 

ESC * 000033 5-262 6-768 6-769 

EXIT 001566 06-455 6-532 6-534 

EXxIT1 001642 6-460 6-465 06-471 6-514 

E2LL8 = 165006 05-244 6-456 

E2PAR = 165316 05-243 6-466 

E2PROM = 165000 @5-242 5-243 5-244 5-245 
6-598 6-618 6-623 

E2WRIT 001666 6-443 6-449 06-477 

FLEND 004721 5-264 06-813 

FMSG1 002430 6-573 6-573 06-638 

FMSG1A 002465 *6-570 06-639 

FMSG1B 002500 6-572 6-572 06 -640 

FMSG1C 002531 6-576 6-576 06-643 

FMSG1D 002554 6-580 6-580 06 -646 

FMSG2 002563 6-321 6-321 6-649 

FMSG3 002644 6-344 6-344 6-650 

FMSG4 002737 6-337 6-337 06-651 

LANG 001262 6-368 6 - 380 

LF * 000012 5-256 6-641 6-648 6-649 

LNGHOR = 000140 05-248 6-380 

MAXERR = 000004 05-252 6-481 

ME 004714 06-797 

MEND 004714 06-795 6-804 6-805 

MEND1 004712 6-487 6-719 06-783 

MOVROM 002134 6-371 6-410 6-417 06-547 

MSGO0O 003006 6-512 6-512 06-653 

MSGOO1 003040 6-533 6-533 6-654 

M001 003177 6-484 6-659 6-660 06-720 

M002 003207 6-660 6-661 06-721 


Le 


6-518 


6-650 
6-739 
6-767 
6-776 


6-596 


6-529 


6-324 


6-650 


06-814 


6-651 
6-740 
6-767 
6-777 


6-333 


6-651 





6-653 
6-747 
6-772 
6-777 


6-335 


6-654 
6-751 
6-772 
6-782 


6-505 


6-735 
6-754 
6-773 
6-782 


6-S25 


ee ae 


SEQ 0024 





fa Tae eas M2 Trl) ae 
! 


COEEF AO CREATED BY MACRO ON 16-FEB-85 AT 13:56 PAGE 2 
SEQ 0025 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
M004 003217 6-662 6-663 06-723 
Moos 003226 6-663 6-664 06-724 
M006 003235 6-664 6-665 06-725 
M007 003237 6-665 6-666 06-726 
M010 003241 6-666 6-667 06-727 
moll 003243 6-667 6-668 06-728 
M012 003243 6-668 6-669 06-729 
M013 003243 6-669 6-670 06-730 
M014 003243 6-670 6-671 06-731 
mo15 003243 6-671 6-672 06-732 
M016 003243 6-672 6-673 06-733 
M017 003243 6-673 6-674 06-734 
mo20 003243 6-674 6-675 06-735 
M021 003304 6-675 6-676 06-736 
M022 003335 6-676 6-677 06-737 
M023 003371 6-677 6-678 06-738 
M024 003525 6-678 6-679 06-740 
M025 003541 6-679 6-680 06-741 
M026 003542 6-680 6-681 06-742 
M027 003572 6-681 6-682 06-743 
M030 003600 6-682 6-683 06-744 
MO31 003613 6-683 6-684 06-745 
mMO32 003626 6-684 6-685 06-746 
MO33 003630 6-685 6-686 06-747 
M034 003701 6-686 6-687 06-748 
MO3S5 003701 6-687 6-688 06-749 
MO36 003702 6-688 6-689 06-750 
M037 003702 6-689 6-690 06-751 
M040 003704 6-690 6-691 06-752 
M041 003726 6-691 6-692 06-753 
M042 003726 6-692 6-693 06-754 
M043 003742 6-693 6-694 06-755 
M044 003765 6-694 6-695 06-756 
MO45 004010 6-695 6-696 06-757 
M046 004024 6-696 6-697 06-758 
M047 004040 6-697 6-698 06-759 
MOoSO 004063 6-698 6-699 06-760 
MOoS1 004106 6-699 6-700 06-761 
mMOoS2 004142 6-700 6-701 06-762 
MOSS 004170 6-701 6-702 06-763 
MOS4 004217 6-702 6-703 06-764 
Moss 004241 6-703 6-704 06-765 
MOS6 004254 6-704 6-705 06-766 
MOS7 004351 6-705 6-706 06-768 
M060 004363 6-706 6-707 06-770 
M061 004363 6-707 6-708 06-771 
062 004373 6-708 6-709 06-772 
M063 004375 6-709 6-710 06-773 
M064 004410 6-710 6-711 06-774 
MO6S 004445 6-711 6-712 06-775 
M066 004450 6-712 6-713 06-776 





N2 | 
COEEFAO CREATED BY MACRO ON 16-FEB-85 AT 13:56 PAGE 3 | 


SEQ 0026 

SYMBOL CROSS REFERENCE CREF vO02 

SYMBOL VALUE REFERENCES 

M070 004546 6-714 6-715 06-778 

mMO71 004560 6-715 6-716 06-779 

mMo72 004563 6-716 6-717 06-780 

MO73 004653 6-717 6-718 06-781 

M074 004656 6-718 6-719 06-782 

NARGS =* 000001 06-321 6-321 06-337 6-337 06-344 6-344 06-471 6-471 06-512 
6-512 06-533 6-533 96-572 6-572 6-572 06-573 6-573 06-575 
6-575 6-575 06-576 6-576 96-579 6-579 6-579 96-580 6-580 

NTYPE =* 000027 96-321 6-321 06-337 6-337 06 - 344 6-344 06-471 6-471 06-512 
6-512 06-533 6-533 96-572 6-572 06-573 6-573 96-575 6-575 
06-575 6-575 06-576 6-576 96-579 6-579 06-580 6-580 

OLOSIZ 002424 ro a oy *6-376 6-382 6-408 6-414 *6-416 *6-419 6-513 6-528 

PCR * 177522 #5-240 *6-314 *6-340 *6-474 *6-506 *6-526 *6-599 

PCRLB * 177522 - 05-241 *6-455 6-567 *6-627 

QUIT 002004 6-482 6-485 6-488 6-491 6-494 6-509 

QUIT1 002006 6-345 06-510 

REAROM 002314 6-386 6-387 6-388 6-390 6-392 6-551 06-594 

RETRY *#* 000002 #5-250 6-560 

RMVTST © 173002 05-246 6-341 

ROMADR 002342 6-384 6-438 6-517 6-548 06-609 

ROMSZ = 001617 05-264 6-437 6-447 

SPACE = 000040 @5-261 6-751 6-775 

START 001000 06-314 6-815 

TAB * 000011 5-259 6-749 6-781 

TEXT 003102 5-264 6-424 6-446 06-659 6-659 6-804 6-805 

UFDHOR = 000040 05-249 6-367 6-399 

UFOSIZ 002426 *6-377 *6-407 *6-412 6-416 *6-420 6-436 6-439 6-528 06-633 

we 004712 06-785 6-802 6-803 

WE 004714 06-798 6-802 6-803 

WENO 004713 06-790 

WERR 002422 *6-479 6-481 6-630 

WRBYTE 002162 6-464 6-469 6-477 6-520 06-557 


WRL ANG 001462 6-358 6-372 6-378 6-361 6-418 06-424 


B3 


COEEF AO CREATED BY MACRO ON 16-FEB-85 AT 13:56 PAGE 4 


MACRO CROSS REFERENCE CREF v02 

MACRO NAME REFERENCES 

-FRCTY 05-299 6-471 6-512 6-533 

-ITOA @5-278 6-572 6-575 6-579 

. TYPMS 05-267 6-321 6-337 6-344 6-573 6-576 6-580 





SEQ 0027 


